//        Simulation einer Federschwingung
;
anfang:=0;                         ;//Variable zur Unterscheidung, ob Ablauf-Taste bettigt wurde

repeat                             ;//Schleifenbeginn 
  
  //Beginn der physikalischen Berechnungen
  ;
  F:=-k*y;                         ;//a,F Berechnung
  a:=F/m;
  
  if start__=1 then anfang:=1;     ;//Abfrage der Ablauf-Taste
  
  if anfang=0 then                 ;//VOR Bettigung der Ablauf-Taste
  begin
    t:=0;                          ;//Starten zum Zeitpunkt t=0
    startwerte;                    ;//erneutes Einlesen der Startwerte
    y:=schieber (ya);              ;//Schieber zur Einstellung der Startposition 
  end;
  
  if anfang=1 then                 ;//NACH Bettigung der Ablauf-Taste
  begin
    v:=v+a*dt;                     ;//Berechnung der Geschwindigkeit
    y:=y+v*dt;                     ;//   -"-     des Ortes
    t:=t+dt;
  end;
  ausgabe (t, y, v, a);            ;//Angabe der Ausgabevariablen
  
  if (t>mt) then                   ;//WENN ein Durchlauf der Simulation (mt) erfolgt ist, DANN
  begin
    neu_graf;                      ;//Graphen sollen neu gezeichnet werden
    anfang:=0;                     ;//Zurcksetzung in Anfangszustand
  end;
until 2<1;                         ;//Schleife wird "unendlich" lang durchlaufen